home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / library.arc / GUIDE.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  2.5 KB  |  91 lines
  1. * dBASE II program to maintain and use the:
  2. * >>>>>>  dBASEer's GUIDE to the Universe  <<<<<<<
  3. * (The Universe in question is the dBASEer's disk library)
  4. * originally written by Dr. M. Timin in November, 1982
  5. * modified and improved by ___________________________________
  6.  
  7. * This program is for the creation, maintenance, and usage of
  8. * a SUBJECT INDEX to a disk file library.  It may be used with any
  9. * collection of text files.  REFERENCES to passages of text are
  10. * contained in the file REFERALS.DBF.  Each record of that file
  11. * has a brief desscription of the passage, a two digit disk number,
  12. * a file name, and a search string.  The search string is meant to
  13. * be used with a text editor to locate the passage in the file.
  14.  
  15. * A second file, SUBJECTS.DBF, contains the names of subjects
  16. * classifications for the passages.  There will generally be several
  17. * SUBJECTS corresponding to any passage.  The SUBJECTS file also
  18. * contains a compound key that links each SUBJECTS record to a 
  19. * particular REFERALS record.  
  20.  
  21. * REFDEX.NDX and SUBDEX.NDX are index files that are necessary, and
  22. * are automatically maintained by this program.
  23.  
  24. * Other command files that are called by GUIDE.CMD are ENTER.CMD,
  25. * SEARCH.CMD, SUBS.CMD, REFS.CMD, and ADDSUB.CMD.
  26.  
  27. * initialization:
  28. set talk off
  29. set escape off
  30. erase
  31. if date()="00/00/00"
  32.    ? " Today's Date?  "
  33.    accept to DAY
  34.    set date to &DAY
  35. endif
  36.  
  37. store T to AGAIN
  38. store T to QFLAG
  39. SELECT PRIMARY
  40. USE REFERALS INDEX REFDEX
  41. SELECT SECONDARY
  42. USE SUBJECTS INDEX SUBDEX
  43.  
  44. * Menu display and selection:
  45. do while AGAIN
  46.    erase
  47.    ?
  48.    ? "Select one by number:"
  49.    ?
  50.    ? " (1)  Search library by subject"
  51.    ? " (2)  Enter additional library references"
  52.    ? " (3)  Add additional subject classifications"
  53.    ? " (4)  List all the subjects on file"
  54.    ? " (5)  List all the referals on file"
  55.    ? " (6)  Quit"
  56.    ?
  57.    WAIT TO WHATKEY
  58.    DO CASE
  59.       CASE WHATKEY="1"
  60.          DO SEARCH
  61.       CASE WHATKEY="2"
  62.          DO ENTER
  63.       CASE WHATKEY="3"
  64.          DO ADDSUB
  65.       CASE WHATKEY="4"
  66.          DO SUBS
  67.       CASE WHATKEY="5"
  68.          DO REFS
  69.       CASE WHATKEY="6"
  70.          STORE F TO AGAIN
  71.       CASE WHATKEY="!"
  72.          WAIT TO WHATKEY
  73.          IF WHATKEY="$"
  74.             store F to AGAIN
  75.             store F to QFLAG
  76.          ENDIF
  77.    ENDCASE
  78. ENDDO
  79.  
  80. * choose dBASE II or CP/M to exit to:
  81. IF QFLAG
  82.    QUIT
  83. ENDIF
  84. CANCEL
  85. tore F to QFLAG
  86.          ENDIF
  87.    ENDCASE
  88. ENDDO
  89.  
  90. * choose dBASE II or CP/M to exit to:
  91. IF QFLAG